COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "WIPE"
C00003 ENDMK
C⊗;
BEGIN "WIPE"
REQUIRE "DDHDR.SAI[GRA,HPM]" SOURCE_FILE;
INTEGER I;
WHILE (I←GDDCHN(-1))≥0 DO ERASE(I);
END;